home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_oth
/
tasking
/
locks.def
< prev
next >
Wrap
Text File
|
1985-07-05
|
253b
|
15 lines
DEFINITION MODULE Locks;
EXPORT QUALIFIED LockType, Lock, BusyLock, Unlock;
TYPE
LockType;
PROCEDURE Lock(VAR l: LockType);
PROCEDURE BusyLock(VAR l: LockType): BOOLEAN;
PROCEDURE Unlock(VAR l: LockType);
END Locks.